location='https://github.com/cqregan/PUBPOL_543_02/raw/main/'
file='Use_Of_Force.csv'
link=paste0(location,file)
link
## [1] "https://github.com/cqregan/PUBPOL_543_02/raw/main/Use_Of_Force.csv"
#getting the data TABLE from the file in the cloud:
df = read.csv(file=url(link))
df
df[['Occured_date_time']] <- as.Date(df[['Occured_date_time']], format = "%m/%d/%y")
df
library(ggplot2)
baseHY=ggplot(data=df,
aes(x=Occured_date_time))
histHY=baseHY + geom_histogram(aes(fill=Incident_Type),
color='black')
histHY
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

histHY + ggtitle("When did use of force incidences occur in Seattle?")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
